00100		DIMENSION I(22)
00200	1	FORMAT (' TYPE  '$)
00300	2	FORMAT(22A1)
00400	3	TYPE 1
00500		ACCEPT 2,I
00600	4	FORMAT(22I)
00700		DO 5 K=22,1,-1
00800	5	IF(I(K).NE.' ')GO TO 6
00900		K=1
01000	6	DO 7 J=1,K,2
01100		L=I(J)
01120		M=I(J+1)
01210		MM=L-M
01220		TYPE 4,L,M,MM
01300	7	CONTINUE
01400		DO 8 J=1,K
01500	8	IF(I(J).LT.'Z')I(J)=I(J)+17179869184
01600		TYPE 9,(I(J),J=1,K)
01700		GO TO 3
01800	9	FORMAT(1X22A1)
01900		END